home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / listbox / txtyle / txtyle.glb < prev    next >
Text File  |  1991-12-05  |  2KB  |  49 lines
  1. '============================================================================
  2. '
  3. '                       TXTYLE (Text Style)
  4. '                   Gregg Irwin (CIS 72450,676)
  5. '
  6. '  This little demo was inspired by Keith Funk's PICNIC's
  7. '  demo which made me think that some of the other styles
  8. '  which are not normally available from VB would be useful
  9. '  to others as well as myself.  This demo exists because
  10. '  of the generosity (and research) of the following people.
  11. '
  12. '  Keith Funk
  13. '  Costas Kitsos
  14. '  Jonathan Zuck
  15. '  Nelson Ford
  16. '  And anyone else I've forgotten...
  17. '============================================================================
  18. '
  19. '-- Declarations for external functions.
  20.  
  21. '---------------------------------------------------------------------------
  22. '-- CTLHWND.DLL is a custom DLL written by Jonathan Zuck. It is available
  23. '-- in Lib 5 of the MSBASIC Forum under the name VBHWND.ZIP.
  24. '---------------------------------------------------------------------------
  25. Declare Function ControlHwnd Lib "ctlhwnd.dll" (Ctl As Control) As Integer
  26.  
  27. '-- Win3 API Functions and Constants.
  28.  
  29. Declare Function SendMessage Lib "User" (ByVal hWnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, lParam As Any) As Long
  30.  
  31. Declare Function GetWindowLong Lib "User" (ByVal hWnd As Integer, ByVal nIndex As Integer) As Long
  32. Declare Function SetWindowLong Lib "User" (ByVal hWnd As Integer, ByVal nIndex As Integer, ByVal dwNewLong As Long) As Long
  33.  
  34. Global Const ES_UPPERCASE = &H8&
  35. Global Const ES_LOWERCASE = &H10&
  36. Global Const ES_PASSWORD = &H20&
  37.  
  38. '-- Window field offsets for GetWindowLong() and GetWindowWord()
  39. Global Const GWL_STYLE = (-16)
  40.  
  41. '-- Edit control messages
  42. Global Const WM_USER = &H400
  43. Global Const EM_LIMITTEXT = WM_USER + 21
  44. Global Const EM_SETPASSWORDCHAR = WM_USER + 28
  45.  
  46. Global Const True = -1
  47. Global Const False = 0
  48.  
  49.